﻿<!--#include file="app/inc/conn.asp"-->
<!DOCTYPE html>
<!--[if lt IE 7]><html lang="zh-CN" class="ie6 ielt8"><![endif]--> 
<!--[if IE 7]><html lang="zh-CN" class="ie7 ielt8"><![endif]--> 
<!--[if IE 8]><html lang="zh-CN" class="ie8"><![endif]--> 
<!--[if (gte IE 9)|!(IE)]><!--><html lang="zh-CN"><!--<![endif]--> 
<head>
<meta charset="utf-8">
<title>老板，给点吧，打发点咯……</title>

</head>
<%
call opendata()
aSays = array("真心无罪","恭祝站长大发","爱心无限","有我更精彩","大爷我赏你","祝站长开心快乐","让爱心照亮人心","站长加油","站长给力","爱心让你我心相连","为站长加油","站长我爱你","一点心意","祝福站长","提前祝站长生日快乐","为你喝彩","网站给力","真是个人才","创意真好","搞基吗","哈哈哈哈","站长好帅","为站长助威","为站长呐喊","让我们一起支持站长")
aSum = array(1,2,5,2.5,3,6,6.88,20,10,15,12,8,25,28,38,50,40,30,66,88,4,7,8,9,100,168)
mindate = formatdatetime("2011-01-01 00:00:00",0)
'dStr = "2011-6-13 12:29:43"
'response.write dateadd("d",datediff("d",dStr,now()),dStr)
'response.write mindate
'response.end
'a = array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","@","!","$","-","1","2","3","4","5","6","7","8","9","0")
Randomize

sql = "select * from [users] where payis=false and datediff('yyyy',datetime,'"&mindate&"')=0 order by id desc"
set rsInsert = server.createObject("adodb.recordset")
rsInsert.open sql,conn,1,1
if not rsInsert.eof then
do while i<10 and not rsInsert.eof
	says = aSays(Int((24) * Rnd + 0))&"，"&aSays(Int((24) * Rnd + 1))
	sum = aSum(Int((25)*Rnd+0))
	username = rsInsert("username")
	email = rsInsert("email")
	url= rsInsert("url")
	datetime = rsInsert("datetime")
	datetime = dateadd("d",datediff("d",datetime,now()),datetime)
	conn.execute("update [users] set payis=true where id="&rsInsert("id"))
	conn.execute("insert into [donate-list](username,email,url,sum,says,status,paytime) values('"&username&"','"&email&"','"&url&"',"&sum&",'"&says&"',true,'"&datetime&"')")
	i=i+1
	rsInsert.movenext
loop
end if
rsInsert.close
set rsInsert = nothing
response.write("OK")
'response.write Int(24 * Rnd )
'd = now()
'response.write d+(FormatDatetime("2011-10-04 01:23:33",0))
'if (month(d)>8) then response.write(d-"08-11")
Call CloseData()
%>
<body>

</body>
</html>
